home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00014_Script_Color Fader < prev    next >
Text File  |  1997-09-30  |  1KB  |  39 lines
  1. -- Color Fader
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property pStart,pEnd,pSpeed
  8.  
  9. on getPropertyDescriptionList
  10.   if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.   set pList=[:]
  13.   addProp pList,#pStart,[format:#integer,comment:"Start Saturation %:",¼
  14.                          Default:0, range:[min:-255,max:255]]
  15.   addProp pList,#pEnd,[format:#integer,comment:"End Saturation %:",¼
  16.                        Default:0, range:[min:-255,max:255]]
  17.   addProp pList,#pSpeed,[format:#integer,comment:"Frames:", Default:30]
  18.   return pList
  19. end
  20.  
  21. on beginSprite me
  22.   set s=the spriteNum of me
  23.   if not alphaManiac(s) then exit
  24.   
  25.   hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startSat:pStart, endSat:pEnd])
  26. end
  27.  
  28. on getBehaviorDescription me
  29.   set msg= "Fade the color on your AlphaManiac!"
  30.   put return & return after msg
  31.   put "Parameters:" & return & "-----------" & return  after msg
  32.   put "*  Start Saturation %: -255 to 255" & return after msg
  33.   put "*     End Saturation %: -255 to 255" & return after msg
  34.   put "*                    Frames: Lower numbers are faster"  after msg
  35.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  36.   return msg
  37. end
  38.  
  39.